library(tidyverse)
library(DeclareDesign)
library(rdss)

sims <- 500
bootstrap_sims <- 500

source("code/declarations/declaration_19.2.R")

diagnosis_19.2 <- diagnose_design(declaration_19.2, sims = sims, bootstrap_sims = bootstrap_sims) 

diagnosis_19a <- 
  declaration_19.2 |>
  redesign(alpha = c(0.25, 0.5, 0.75), n = c(2, 8)) |> 
  diagnose_design(sims = sims, bootstrap_sims = bootstrap_sims)

write_rds(diagnosis_19.2, file = "diagnosis_objects/diagnosis_19.2.rds")
write_rds(diagnosis_19a, file = "diagnosis_objects/diagnosis_19a.rds")


